1.加载R包

绘制图形前先安装和加载R包。

install.packages("readxl") # 安装包
install.packages("ggplot2")
install.packages("tidyr")
library(readxl) # 加载包
library(ggplot2)
library(tidyr)

2. 载入数据

数据在Excel中的格式见下图，文件名为test。test <- read_excel("test.xlsx") # 读取数据

可以看出上述数据虽然有比例的具体数值，但是无法直接用于绘图，可以使用gather函数进行数据处理。

3. 处理数据

test1 <- gather(test, E1, E2, -prov)

其中，gather(test, E1, E2, -prov) 中的第一个参数要求类型为数据框，本例中为test数据框，第二个参数将原有数据框的列名放入，第三个参数将原有数据框中的数据放入，第四个参数表示保持prov列不变，变化后的数据结构如下：

test1

4. 绘制图形

ggplot(test1) +
  geom_bar(aes(x = prov, y = E2, fill = E1),
           stat = "identity") +
  labs(x = "京津冀地区", y = NULL, fill = "指标")